home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
3.1
/
toasterall
/
arexx_examples
/
ldrec.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-10-16
|
2KB
|
97 lines
/* Record 1 frame on Sony LVR-3000N */
/* Set serial at 9600 8N1, assume LD just turned on, did blank check */
/* By Arnie Cachelin Thu Oct 15 13:38:00 1992 */
cmd.0="56" /* All Clear */
cmd.1="EC" /* Color Mode */
cmd.2="EA" /* NTSC Mode */
cmd.3="55" /* Frame # Mode */
cmd.4="E6" /* Frame Rec Mode */
cmd.5="BD" /* Next blank */
cmd.6="E0" /* Rec Standby Mode */
/* This was the setup part */
cmd.7="e0" /* Enter (use current frame as IN) */
cmd.8="40" /* Enter (use current frame as IN) */
cmd.9="e9" /* Enter (no OUT set) */
cmd.10="31" /* 1 Frame DUR */
cmd.11="40" /* Enter (use IN, DUR for 1 frame record) */
cmd.12="E9" /* Record */
setupnum=6
cmdnum=9
frames=3
setupstring=""
recordstring=""
if ~open(SerialOut,"SER:","a") then
do
say "Can't open serial port SER:."
exit
end
else
do i=0 to setupnum
s="command "i" Sent hex byte "cmd.i
/* writech(SerialOut,x2c(cmd.i)) */
setupstring=setupstring||x2c(cmd.i)
say s
end
say setupstring
/* writeln(SerialOut,setupstring) */
/* do f=0 to frames */
do i=setupnum+1 to cmdnum
s="command "i" Sent hex byte "cmd.i
/* writech(SerialOut,x2c(cmd.i)) */
recordstring=recordstring||x2c(cmd.i)
say s
end
/* end */
do f=0 to frames
say recordstring
writeln(SerialOut,recordstring)
end
do i=1 to cmdnum
hexcmd.i=x2c(cmd.i)
end
hexcmd.6="32152@"
hexcmd.7="32153@"
hexcmd.8="1@"
if ~open(SerialOut,"SER:","w") then exit
writech(SerialOut,x2c(cmd.1))
writech(SerialOut,x2c(cmd.2))
writech(SerialOut,x2c(cmd.3))
writech(SerialOut,x2c(cmd.4))
writech(SerialOut,x2c(cmd.5))
pull mydick
writech(SerialOut,x2c(cmd.6))
pull mydick
writech(SerialOut,x2c(cmd.7))
pull mydick
writech(SerialOut,x2c(cmd.8))
pull mydick
writech(SerialOut,x2c(cmd.9))
pull mydick
writech(SerialOut,x2c(cmd.10))
pull mydick
exit